home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / bbs / tmg105b2.zip / FOREST.SCR < prev    next >
Text File  |  1996-07-05  |  10KB  |  362 lines
  1. @#DEFINE
  2.   CreatureFile FOREST.DAT
  3.   Set ^VR20 0
  4.   Location "fForest of Wolves"
  5. @#MONSTER
  6.   STATS 1 38 28 21 200 400 68 3
  7.   NAME  1 "Huge Grizzley Bear"
  8.   WNAME 1 "Big Black Paw"
  9.   ANAME 1 "Increadibly Thick Fur"
  10.   DEATH 1 "RRRRRRRRRRRRRRRRRrrrrrrrrrrrrrrrr..."
  11.   STATS 2 158 124 31 690 800 260 6
  12.   NAME  2 "Huge Grizzley Bear"
  13.   WNAME 2 "Big Black Paw"
  14.   ANAME 2 "Increadibly Thick Fur"
  15.   DEATH 2 "RRRRRRRRRRRRRRRRRrrrrrrrrrrrrrrrr..."
  16. @#Event1
  17.   Set ^VR03 400
  18.   Mult ^VR03 ^CS22
  19.   Random ^VR03 ^VR03
  20.   Writeln "`9  You find a sack containing ^VR03 gold pieces in it."
  21.   Add ^CS18 ^VR03
  22.   Pause
  23.   Writeln ""
  24.   Return
  25. @#Event2
  26.   Writeln "`9  You are walking through the forest, whne you are hit by a bolt of"
  27.   Writeln "  `1Blue`9 light.  It surrounds you, envelops you, and drains you of your"
  28.   Writeln "  Energy, but you can feel it making you tougher."
  29.   Random ^VR03 4
  30.   Writeln "`%  You gain `4^VR03`% defense points."
  31.   Add ^CS04 ^VR03
  32.   Set ^VR03 ^CS10
  33.   Random ^VR03 ^VR03
  34.   Add ^VR03 -1
  35.   If ^VR03 > 100
  36.     Set ^VR03 100
  37.   Endif
  38.   If ^VR03 > 0
  39.     Writeln "`%  You lose `4^VR03`% hit points."
  40.     Add ^CS10 -^VR03
  41.   Endif
  42.   Pause
  43.   Return
  44. @#Event3
  45.   Writeln "`9  You are walking through the forest, whne you are hit by a bolt of"
  46.   Writeln "  `4Red`9 light.  It surrounds you, envelops you, and drains you of your"
  47.   Writeln "  Energy, but you can feel it making you stronger."
  48.   Random ^VR03 4
  49.   Writeln "`%  You gain `4^VR03`% attack points."
  50.   Add ^CS03 ^VR03
  51.   Set ^VR03 ^CS10
  52.   Random ^VR03 ^VR03
  53.   Add ^VR03 -1
  54.   If ^VR03 > 100
  55.     Set ^VR03 100
  56.   Endif
  57.   If ^VR03 > 0
  58.     Writeln "`%  You lose `4^VR03`% hit points."
  59.     Add ^CS10 -^VR03
  60.   Endif
  61.   Pause
  62.   Return
  63. @#Event4
  64.   Writeln "`9  You are walking through the forest, whne you are hit by a bolt of"
  65.   Writeln "  `2Green`9 light.  It surrounds you, envelops you, and drains you of your"
  66.   Writeln "  Energy, but you can feel it making you more agile."
  67.   Random ^VR03 4
  68.   Writeln "`%  You gain `4^VR03`% damage reduction points."
  69.   Add ^CS05 ^VR03
  70.   Set ^VR03 ^CS10
  71.   Random ^VR03 ^VR03
  72.   Add ^VR03 -1
  73.   If ^VR03 > 100
  74.     Set ^VR03 100
  75.   Endif
  76.   If ^VR03 > 0
  77.     Writeln "`%  You lose `4^VR03`% hit points."
  78.     Add ^CS10 -^VR03
  79.   Endif
  80.   Pause
  81.   Return
  82. @#Event5
  83.   Writeln "`9  You find a gem partially hidden under a rock!"
  84.   Add ^CS20 1
  85.   Pause
  86.   Return
  87. @#Event6
  88.   Writeln "`9  You stumble across a large cave in the middle of the wilderness."
  89.   Writeln "`9  It is very dark, and smells pretty bad."
  90.   Writeln ""
  91.   DefaultCommand Y
  92.   Write "`9  Do you Enter? (`3Y`9/`3N`9) [`%^VR21`9] : `%"
  93.   ReadChar ^VR01
  94.   If ^VR01 == Y
  95.     Writeln "Yes."
  96.     Writeln ""
  97.     Writeln "`9  Entering the cave, you encounter a Huge Grizzley Bear!"
  98.     If ^CS22 <= 4
  99.       Combat ^GF29 Int 1
  100.       Set ^VR05 5
  101.       Set ^VR06 600
  102.     Endif
  103.     If ^CS22 > 4
  104.       Combat ^GF29 Int 2
  105.       Set ^VR05 8
  106.       Set ^VR06 1200
  107.     Endif
  108.     If ^GF29 == 1
  109.       Writeln "`c`%                         Searching the Cave :"
  110.       Writeln "`#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-"
  111.       Writeln "`9  After defeating the Grizzley Bear, you search around its cave."
  112.       Writeln "  You find the remains of many small animals, some remnants of fur,"
  113.       Writeln "  But eventually you find some things of value."
  114.       Writeln "`!  You find ^VR06 Gold and ^VR05 Gems!"
  115.       Writeln ""
  116.       Add ^CS18 ^VR06
  117.       Add ^CS20 ^VR05
  118.       Pause
  119.     Endif
  120.     Return
  121.   Endif
  122.   Writeln "No."
  123.   Writeln ""
  124.   Writeln "`9  You guess you'll never know what fortunes could lie in that cave."
  125.   Return
  126. @#Mail1
  127.   SetStr ^VR04 "`%Bank Notice :"
  128.   Random ^VR05 ^CS19
  129.   Mail ^CS01 ^VR04
  130. We regret to inform you that a mistake had been made in your favor.
  131. The error has been corrected, and the sum of ^VR05 has
  132. been removed from your balance.  We regret the error being made.
  133.   MailCommands
  134. Add ^CS19 -^VR05
  135.   EndMail
  136.   Return
  137. @#Mail2
  138.   SetStr ^VR04 "`%Bumbling Move!"
  139.   Set ^VR05 2
  140.   Set ^VR06 12
  141.   Mult ^VR05 ^CS22
  142.   Mult ^VR06 ^CS22
  143.   If ^VR06 > ^CS10
  144.     Set ^VR06 ^CS10
  145.     Add ^VR06 -1
  146.   Endif
  147.   Mail ^CS01 ^VR04
  148. On your way through town, you trip over your own feet and break your
  149. arm.  You realize that even though the healers can fix it, you will
  150. not be as strong as you once were.
  151. (You lose ^VR05 attack points)
  152. (You lose ^VR06 hit points due to pain)
  153.   MailCommands
  154. ADD ATT -^VR05
  155. ADD CHP -^VR06
  156.   EndMail
  157.   Return
  158. @#Mail3
  159.   SetStr ^VR04 "`%Good Fortune!"
  160.   Set ^VR05 ^CS22
  161.   Add ^VR05 2
  162.   Random ^VR05 ^VR05
  163.   Mail ^CS01 ^VR04
  164. On your way back to town, a large bird drops a sack at your feet and
  165. flies off.  Being curious, you open the sack to reveal
  166. ^VR05 gems!  All beautifully polished.
  167.   MailCommands
  168. ADD ^CS20 ^VR05
  169.   EndMail
  170.   Return
  171. @#Mail4
  172.   If ^CS12 > 0
  173.     Setstr ^VR04 "`%Strange Event!"
  174.     Random ^VR05 ^CS22
  175.     Mult ^VR05 2
  176.     Mail ^CS01 ^VR04
  177. On your way back to town, a shimmering green light shoots out of the sky
  178. striking your ^CS13.  It now feels energized.
  179. (Your weapon now has a +^VR05 bonus)
  180.     MailCommands
  181. Add ^CS03 ^VR05
  182. Add ^CS12 ^VR05
  183.     EndMail
  184.   Endif
  185.   Return
  186. @#Mail5
  187.   Set ^VR05 2000
  188.   Mult ^VR05 ^CS22
  189.   Mail ^CS01 `%Message from the Royal Family in Munich :
  190. We have heard of your deeds, and wish you the best of luck in saving
  191. Shamile.  Our treasurer has sent over a small gift of ^VR05 gold to aid you.
  192. (Due to their influence, you gain 4 charm and lose 6 shame)
  193.   MailCommands
  194. Add ^CS06 4
  195. Add ^CS07 -6
  196. Add ^CS18 ^VR05
  197.   EndMail
  198.   Return
  199. @#Event7
  200.   Writeln "`9  You stumble across a small, quaint well nestled deep in the forest."
  201.   Writeln "`9  It has a small wooden sign on it that says `3"Wishes : 1 gem"`9."
  202.   Writeln ""
  203.   DefaultCommand Y
  204.   Write "`9  Do you throw one in? (`3Y`9/`3N`9) [`%^VR21`9] : `%"
  205.   ReadChar ^VR01
  206.   If ^VR01 == Y
  207.     Writeln "Yes."
  208.     If ^CS20 >= 1
  209.       Add ^CS20 -1
  210.       Writeln "`9  Nothing apparently happens."
  211.       Random ^VR02 100
  212.       Add ^VR02 ^CS08
  213.       If ^VR02 <= 20
  214.         Set ^VR03 1
  215.       Endif
  216.       If ^VR02 >= 21
  217.         If ^VR02 <= 40
  218.           Set ^VR03 2
  219.         Endif
  220.       Endif
  221.       If ^VR02 >= 41
  222.         If ^VR02 <= 60
  223.           Set ^VR03 3
  224.         Endif
  225.       Endif
  226.       If ^VR02 >= 61
  227.         If ^VR02 <= 80
  228.           Set ^VR03 4
  229.         Endif
  230.       Endif
  231.       If ^VR02 >= 81
  232.         If ^VR02 <= 100
  233.           Set ^VR03 5
  234.         Endif
  235.       Endif
  236.       Gosub Mail^VR03
  237.       Return
  238.     Endif
  239.     Writeln ""
  240.     Writeln "  `9You don't have a `4GEM`9 to throw in!"
  241.     Return
  242.   Endif
  243.   Writeln "No."
  244.   Writeln ""
  245.   Writeln "`9  You realize you would just be throwing a gem away as wishes dont come true."
  246.   Return
  247. @#Event8
  248.   Writeln "`9  You curse your bad luck as you trip over an upturned tree root, but when"
  249.   Writeln "  you land face down in the mud, you are staring right at a 4-leaf clover."
  250.   Writeln "`%  You gain `21`% luck"
  251.   Add ^CS08 1
  252.   Pause
  253.   Return
  254. @#Event9
  255.   Writeln "`9  From out of nowhere, a large black cat streaks across your path."
  256.   Writeln "`%  You lose `21`% luck"
  257.   Add ^CS08 -1
  258.   Pause
  259.   Return
  260. @#Event10
  261.   SharedEvent 1
  262.   Pause
  263.   Return
  264. @#SpecialEvent
  265.   Writeln "`c`%                             Special Event:"
  266.   Writeln "`#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-"
  267.   Random ^VR02 10
  268.   Gosub Event^VR02
  269.   ReDispMenu FALSE
  270.   Return
  271. @#Fight
  272.   If ^CS26 >= 1
  273.     MonsterAvailable ^GF28
  274.     If ^GF28 == 1
  275.       Random ^VR02 100
  276.       Add ^VR02 -^CS08
  277.       If ^VR02 < 20
  278.         Gosub SpecialEvent
  279.         ReDispMenu FALSE
  280.         Return
  281.       Endif
  282.       Combat ^GF29 Ext
  283.       Add ^CS26 -1
  284.       Return
  285.     Endif
  286.     Writeln ""
  287.     Writeln "`9  Sorry, there is `4NOTHING`9 here for you to fight."
  288.     ReDispMenu FALSE
  289.     Return
  290.   Endif
  291.   Writeln ""
  292.   Writeln "`9  Sorry, the forest is `4EMPTY`9.  Perhaps you should return tomorrow."
  293.   ReDispMenu FALSE
  294.   Return
  295. @#Deposit
  296.   Writeln ""
  297.   Writeln "  `3You wander over to a nearby tree, and while no